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| m1 
| i at +4 tb 4 90:30:14 VAX=11_ FORTRAN EP ges poge 1 
| “Sep-1984 14:25:27 DISKSVMSMASTER: CERF .SRCIJVAX750REG.FOR; 
899) SUBROUTINE VAX7SOREG (LUN,REGISTER) | , 
0008 Version: *v04-000' , 
BoD? PARRA ARAAAAAALALALELAAAAA ARLES LARA EERE RASA RASS RASA S ALARA S RASA RASS ALARA SS OS ; 
* 
000 COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 1 
000 DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 1 
000 ALL RIGHTS RESERVED. | , 
THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED | 1 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE | 1 
INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 1 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 1 
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THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE W 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGI 
CORPORATION. 
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AUTHOR BRIAN PORTER CREATION DATE 16-AUG-1979 
Functional description: 
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This module displays the Kernel cluster pegr eters that appear 
in various error log entries for the 11/750. 


SSSS8S8S8SSSSsSssssss 


36 

Ht Modified by: 

39 V03-002 SARO161 Sharon A. Reynolds, 13-0c t-1983 
Boas Added an SYE update that fixes carriage control. 
Bote v03-001 BP0001 Brian Porter, 20-AUG-1982 02 
004 Added ci750 support. 02 
0044 ee 02 
0045 02 
0046 | 02 
0047 02 
0048 include 'src$:modes.for /nolist' gs 
0087 BYTE LUN | 02; 
0088 02: 
0089 INTEGER#4 REGISTER 85: 
0091 integere4 LibSextzv 02; 
0095 02. 
009 INTEGER®*4 COMPRESSC 
0094 


——- -——_——__ 


| VAX7S50REG 

0095 character*18 

0096 

44 character*27 

0099 character*17 

0100 
CHARACTER®21 
CHARACTER*®7 
character*17 
CHARACTER*18 
CHARACTER®*9 
CHARACTER*12 
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data vimcesr (0,0) 
data vimcesr (0,1) 


data v2mcesr(1) 
data vemcesr (2) 
data vemcesr (3) 


data vicaer (0) 
data vicaer(1) 
data vicaer(2) 
data vicaer(3) 


DATA VICMIER(O) 
DATA VICMIER(1) 
DATA VICMIER(2) 


ESI QQHR:I9 BMH IAEOR 
vimcesr(0:0,0:1) 

vemcesr (1:3) 

vicaer(0:3) 

VICMIER(O:3) 

V2CMIER(4:4) 

v3cmier (8:11) 

V4CMIER(42:12) 

VSCMIER(18:19,0:1) 

V6CMIER(20: 20) 


/*OPERAND REFERENCE*'/ 
/*XB REFERENCE*'/ 


/*UNALIGNED UNIBUS REFERENCE*'/ 
/‘TB PARITY ERROR*'/ 
/*BUS ERROR*'/ 


/*CACHE HIT*'/ 
/*2ND ERROR*'/ 
/"DATA PARITY ERROR*'/ 
/"TAG PARITY ERROR*'/ 


/*CORRECTED READ DATA®'/ 
/*LOST ERROR*'/ 
/*READ DATA SUBSTITUTE®'/ 
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IB-Sep-19 4 
-Sep-1984 
DATA VICMIER(3) /*MEMORY ERROR*'/ 
DATA V2CMIER(4) /*TB HIT*#'/ 
data v3cmier (8) /*TB GO DATA ERROR*'/ 
data v3cmier (9) /*TB G1 DATA ERROR®*'/ 
data v3cmier(10) /"TB GO TAG ERROR*'/ 
data v3cmier(11) /‘TB G1 TAG ERROR*'/ 
data v4cmier(12) /"READ LOCK TIMEOUT®*'/ 
data vScmier(18,0) /'VIRTUAL*'/ 
data vScmier(18,1) /*PHYSICAL*®'/ 
data v5cmier(19,0) /*MODIFY*®'/ 
data vScmier(19,1) /*READ*®'/ 
DATA V6CMIER(20) /*CMI DISABLE*'/ 
character*19 vicnfgr (8:10) 
data vicnfgr (8) /*POWER-FAIL DISABLE*'/ 
data vicnfgr(9) /*TRANSMIT DC LO®'/ 
data vicnfgr (10) /*TRANSMIT AC LO®'/ 
character*34 v2cnfgr (12:17) 
data v2cnfgr (12) /"NO “'CIPA'®*/ 
data vecnfgr(13) /*“CIPA’S TIME-OUT®'/ 


90:3 214 VAX=-11 FORTRAN V3.4-56 
4:25:27 DISKSVMSMASTER: CERF .SRCJVAX750REG. 
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VAX75OREG 16-Sep-1984 90:3 1 VAX=11 FORTRAN V3.4=-5 Page VAX 


6 
“Sep-1984 DISKSVMSMASTER: CERF .SRCIVAX750REG.FOR 


0 9 data vecnfgr(14) /"DIAGNOSE®*/ 034 
\ data v2cnfgr (15) /*'CIPA' PARITY ERROR®*'/ tng 
0 1§ data vecnfgr (16) /*CORRECTED READ DATA®'/ O32, 
0 2 data v2enfgr (17) /*UNCORRECTABLE DATA ERROR RESPONSE*'/ | Bae 
9 4 character*29 v3cenfgr(19:20) | Ose 
° } data v3cenfgr (19) /*READLOCK TRANSFER TIME-OUT*'/ | O32. 
° A data v3cenfgr (20) /"NON-EXISTENT MEMORY RESPONSE®*'/ | 035 
i is oe eaten Risener tenneiel ea: 
ata . WER-UP®*' | 
$559 dat as /"ADAPTER POWER a / | O36 
ata r - *' 
0228 Siete | 036 
oS ¢2 036 
0230 036 
0231 | 036 
0232 ENTRY COMET_TBDR (LUN,REGISTER) 036 
0233 036 
0234 036! 
OSs? 036 
0236 CALL LINCHK (LUN,1) 037 
osef 037 
0238 WRITE (LUN, 10) REGISTER | 037 
sre 10 FORMAT(' *,18,*TBGDR',124,78.8) ee 
ose) if (iand(register,'0000000b'x) .ne. 0) then O37 
0243 call Linchk (lun,1) 037 
0244 037! 
0245 write(lun,15) "DIAGNOSTIC MODE’ 037 
0246 15 format(' *,t40,a) 038 
0247 endif 038 
0248 038 
0249 RETURN 038 
0250 038 
0251 038 
OS3¢ 38 
025 ENTRY COMET_CADR (LUN,REGISTER) 38 
0254 38 
0255 038 
og26 CALL LINCHK (LUN,1) O39 
0258 . 039 
0259 WRITE (LUN, 20) REGISTER O3e 
aon 20 , -FORMAT(’ *,1T8,°CGDR',124,28.8) O30 
0968 if (iand(register,'00000001'x) .ne. 0) then Bae 
0964 call Linchk (lun,1) — 036 


dD 2 
VAX75ORES 16-Sep-1984 00:30:14 VAX=11 FORTRAN V3.4-56 Page 5. 
g73007 18 4 90:39:35 DI SKSVMSMASTER: LERF. SRCIVAX7SOREG.FORSY 
0 write(lun,25)_ "DIAGNOSTIC MODE' 
Q £6 25 format(' t40,a) 
0268 end 
0 4 | 
8 0 RETURN 
71 
ar xe 
ae: ENTRY COMET_MCESR ( REGISTER) $20 
LUN,RES 
0276 - 0411 
0277 041 
0278 041, 
0279 CALL LINCHK (LUN,1) 041 
0280 | 041, 
0281 WRITE(LUN, 30) REGISTER 041 
oeee 30 FORMAT(' ',18,"MCESR',124,78.8) | Ret 
0964 call output (lun,register,vimcesr,0,0,0,'2') Sey: 
0286 call output (lun,register,v2mcesr,1,1,3,'0") 042 
0287 , | 042 
0288 RETURN 042 
0289 | 042 
0290 042 
0291 042 
f324 042 
029 ENTRY COMET_CAER (LUN,REGISTER) 042 
0294 042 
0299 042 
0296 043) 
0297 CALL LINCHK (LUN,1) 043 
0298 043 
0298 WRITE(LUN,35) REGISTER 043 
oe 35 FORMAT(' ',18,"CAER',124,28.8) ak 
0302 CALL OUTPUT (LUN,REGISTER,V1CAER,0,0,3,'0') | 043 
0303 043 
0304 RETURN 043 
0305 043 
0306 C | 044 
0307 C THE CMIER REGISTER IS USED BY SEVERAL MODULES. THE 044 
308 C MICRO-CODE WITHIN COMET SPLITS THE REGISTER INTO 044 
09 C INDIVIDUAL 4 BIT SLICES AND PUSHES THAT RIGHT 044 
C JUSTIFIED ONTO THE STACK WHEN A MACHINE CHECK 044 
C OCCURS. ANY MODULE CALLING CMIER_XXX MUST 044 
C PRESENT THE BITS IN THEIR CORRECT POSITION. 044 
C ALSO THE MODULE MUST HANDLE THE UNUSED BITS 044 
¢ WITHIN THE BIT SLICE ITSELF. ae 


ENTRY CMIER_30 (LUN,REGISTER) 
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VAX7SOREG 


CALL LINCHK (LUN,1) 
WRITE(LUN,75) modes (LibSextzv(16,2,register)) 
75 FORMAT ( T40,'CPU MODE = ', 
1 A<COMPRESSC (modes (LibSextzv(16,2,register)))>) 


| 
call output (lun,register,vScmier,18,18,19,'2') | 
| 


SeSSE 
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RETURN 


ENTRY CMIER_2320 (LUN,REGISTER) | 


9 H CALL OUTPUT (LUN,REGISTER,VICMIER,O,0,3,'0") 
: : RETURN 
8 | 
8 2 ENTRY CMIER_74 (LUN,REGISTER) 
oF | 
0 § call output (lun ,register,v2cmier,4,4,4,'0') | 
5 RETURN 
0336 | 
ae 
0359 ENTRY CMIER_118 (LUN,REGISTER) | 
0340 | 
0341 
0342 | 
Beez call output (lun,register,v3cmier,8,8,11,'0") 
0345 RETURN 
0346 | 
0347 | 
0348 
0349 ENTRY CMIER_1512 (LUN,REGISTER) | 
0350 
0391 | 
0358 CALL OUTPUT (LUN,REGISTER,V4CMIER,12,12.12,'0") | 
0355 RETURN 
0356 | 
0357 
0358 
0359 ENTRY CMIER_1916 (LUN,REGISTER) 
0560 | 
9 1 
306 
036 
0 
0 
0 
0 
0 
0 
0 
0 
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if Ciand(register,'00100000'x) .ne. 0) then 
call Linchk (Llun,1) 

write(lun,80) "DIAGNOSTIC MODE' 

format(' *,t40,a) 

endif 


RETURN 
entry ci750_cnfgr (lun, register) 


call Linchk (lun,1) 


write(lun,85) register 
format(/’ *,t8,*CNFGR',t24,28.8) 


call Linchk (lun,1) 

if (LibSextzv(0,8,register) .ne. '38'x) then 
write(lun,90) "ADAPTER NOT C1750° 

format(" *,t40,a) 

else 

write(lun,90) ‘ADAPTER IS C1750' 

call output (lun,register,vicnfgr,8,8,10,'0') 
call output (lun,register,v2cnfgr,12,12,17,'0') 
call output (lun,register,v3cnfgr.19,19,20,'0") 
call output (lun,register,v4cnfgr.22,22,23,'0') 
endif 


return 


end 
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VAX7SOREG 


PROGRAM SECTIONS 


Total Space Allocated 


ENTRY POINTS 
Address Type 


0-00000166 


VARIABLES 
Address Type 
AP-00000004a L*1 


ARRAYS 
Address Type 


V6CMIER 


LABELS 
Address’ Label 


1-00000074 10° 
75° 


Address 


1-00000086 
1-000000E1 


2 
Sep-1984 00: VAX=11 FORTRAN V3.4-56 
1B-sen-19 4 90: 38:34 DI SKSVMSMASTER: R:YERE 
Bytes Attributes 
1079 PIC CON REL LCL SHR EXE RD NOWRT LONG 
5 PIC CON REL LCL SHR NOEXE RD NOWRT LONG 
167 PIC CON REL LCL NOSHR NOEXE RD WRT LONG 
5 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
3064 
Address Type Name Address Type Name Address 
0-00000200 entre 118 0-00000223 CMIER_1512 -00000246 
0-000001BA MIER_30 0-000001DD CMIER_ 0-00000086 
0-000000F D CORES “MCESR 0-0000000F COMET_TBDR 0-00000000 
Address Type Name 
2-00000300@ I*4 REGISTER 
Bytes Dimensions 
55 (0:4) 
68 (0:3) 
84 (0:3) 
57 (8:10) 
+6 (0:0, 0:1) 
(4:45 
204 (12:17) 
81 (3) 
68 (8:11) 
58 (19:20) 
18 (18:36) 
3 (cere ) 
6 (18:19, 0:1) 
12 (20:205 - 
Label Address’ Label Address Label Address’ Label 
15° 1-0000008D 20° 1-Q0000009E 25' 1-000000A5 30° 
80' 1-000000E8 85° 1-000000FB 90° 


P 
TSRCIVAX75OREG.FORS 1 


CMIER_1916 
COMET CADR 
VAX750REG 


Type 


Address’ Label 


1-000000B7 35° 


VAX 
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H 2 
ppeiaeten "973p- 18K 92:38:39 
FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name 
1*4 COMPRESSC 


Type Name 
1*4 LIBSEXTZV 


Type Name 
LINCHK 


Type Name 
OUTPUT 


COMMAND QUALIFIERS 
FORTRAN /LIS=LIS$:VAX750REG/0BJ=0BJ$:VAX750REG MSRC$:VAX750REG 


/CHECK= (NOBOUNDS , OVERF LOW, NOUNDERF LOW) 
/DEBUG= (NOS YMBOL§, TRACEBACK) 
/STANDARD= (NOS YNTAX ,NOSOURCE_FORM) 
/SHOW= (NOPREPROCESSOR ,NOINCLODE , MAP) 


/F77 /NOG_FLOATING /14 /OPTIMIZE /WARNINGS /NOD_LINES /NOCROSS_REFERENCE /NOMACHINE_CODE /CONTINUATIONS=19 


COMPILATION STATISTICS 


Run Time: 3.78 seconds 
Elapsed Time: 11.56 seconds 
Page Faults: 164 

Dynamic Memory: 187 pages 


AX-11 FORTRAN 3.4=5 p 9 
NRK SUMERASTEN LER. SRC IVAX7SOREG. FORST® 
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